home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / time / time_31-40 / time_38 / q-menu-cfg / q-menu-cfg.lst < prev    next >
File List  |  1993-11-04  |  3KB  |  89 lines
  1. @init
  2. PROCEDURE init
  3.   OPENW #2,180,0,404,10,786432,2+4096
  4.   titel$="Q-Menu  C:"+STR$(AvailMem(2))+"  F:"+STR$(AvailMem(4))+"  "+DATE$+"  "+TIME$+" "
  5.   TITLEW #2,titel$
  6.   DIM m$(300),exec$(300)
  7.   FOR p%=0 TO 11
  8.     READ m$(p%)
  9.   NEXT p%
  10.   IF EXIST("S:Q-MENU.CFG") THEN
  11.     OPEN "I",#1,"S:Q-MENU.CFG"
  12.     WHILE NOT EOF(#1)
  13.       INPUT #1,m$(p%)
  14.       INPUT #1,exec$(p%)
  15.       exec$(p%)="run "+exec$(p%)
  16.       INC p%
  17.     WEND
  18.     CLOSE #1
  19.   ENDIF
  20.   m$(p%)=""
  21.   MENU m$()
  22.   ON MENU GOSUB zweig
  23.   DO
  24.     adr%=WaitPort(LPEEK(WINDOW(2)+86))
  25.     GOSUB mem
  26.     SLEEP
  27.   LOOP
  28. RETURN
  29. PROCEDURE zweig
  30.   p%=MENU(0)
  31.   SELECT p%
  32.     REM ----------------------   1. Menu, braucht das Programm selber   -----
  33.   CASE 9
  34.     OPENW #1,0,11,640,188,0,4098
  35.     TITLEW #1,"»»»»»»»»   Kurzanleitung zum Q-Menu-CFG   FD-Soft 1991  Werner Ammann   ««««««««"
  36.     PRINT
  37.     PRINT "   -->   Mit Vorteil wird dieses Programm aus dem CLI gestartet !!   <--"
  38.     PRINT
  39.     PRINT "   Q-Menu mit Konfigurationsfile,  auf vielfachen Wunsch hin verwirklicht."
  40.     PRINT "   Dieses Programm entspricht beinahe vollständig dem  Q-Menu von mir, nur"
  41.     PRINT "   wird hier ein Konfigurationsfile dazu benötigt, das sich im S: befinden"
  42.     PRINT "   muss und Q-MENU.CFG heisst."
  43.     PRINT "   Gegenüber der anderen Q-Menu Version wird hier der GFA-Compiler nicht"
  44.     PRINT "   gebraucht, das Konfigurationsfile kann mit einem Editor erstellt werden."
  45.     PRINT "   Hier sind die Eingabeanweisungen:"
  46.     PRINT "   Links der Menüpunkt, rechts das EXEC-File."
  47.     PRINT "   Untermenüs beginnen mit einem Ausrufezeichen."
  48.     PRINT "   Um ein neues Menu zu beginnen, wird eine Zeile mit einem Komma eingefügt."
  49.     PRINT "   Die dann folgende Zeile ist der Menütitel, wird mit Komma abgeschlossen!"
  50.     PRINT "   Beachte auch die Grenzen des WB-Screens bei vielen Menüs !"
  51.     PRINT
  52.     PRINT "                                                   Werner, im Januar 1991"
  53.     PRINT
  54.     PRINT "                            Mausklick !";
  55.     REPEAT
  56.     UNTIL MOUSEK
  57.     CLOSEW #1
  58.   CASE 10
  59.     CLOSEW #2
  60.     EDIT
  61.     REM -------------------    Ab hier geht's los mit den BenutzerEXEC's   ---
  62.   CASE p%
  63.     EXEC exec$(p%),-1,-1
  64.   ENDSELECT
  65. RETURN
  66. PROCEDURE mem
  67.   INC q%
  68.   IF q%=10 THEN
  69.     titel$="Q-Menu  C:"+STR$(AvailMem(2))+"  F:"+STR$(AvailMem(4))+"  "+DATE$+"  "+TIME$+" "
  70.     q%=0
  71.     VSYNC
  72.     TITLEW #2,titel$
  73.   ENDIF
  74. RETURN
  75. REM
  76. REM -------------------- Ab hier sind die DATA's
  77. REM -------------------- ACHTUNG! Folgende Anzahl Zeilen nicht verändern,
  78. REM --------------------          Sonst stimmt die Menuberechnung nicht mehr !
  79. REM
  80. DATA Info ,Information
  81. DATA !       Q-Menu  in GFABASIC
  82. DATA !        von Werner Ammann
  83. DATA !    Hasliblock  8554 Hasli TG
  84. DATA !         054 / 63 22 37
  85. DATA !      Versionsnummer: 1.0c
  86. DATA ! Besten Dank für die Mithilfe an
  87. DATA !          Beat Lütolf
  88. DATA Anleitung,ENDE,
  89.